3.1.79 \(\int \frac {a+b \log (3+e x)}{x} \, dx\) [79]

Optimal. Leaf size=21 \[ (a+b \log (3)) \log (x)-b \text {Li}_2\left (-\frac {e x}{3}\right ) \]

[Out]

(a+b*ln(3))*ln(x)-b*polylog(2,-1/3*e*x)

________________________________________________________________________________________

Rubi [A]
time = 0.02, antiderivative size = 21, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, integrand size = 14, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.143, Rules used = {2439, 2438} \begin {gather*} \log (x) (a+b \log (3))-b \text {PolyLog}\left (2,-\frac {e x}{3}\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

Int[(a + b*Log[3 + e*x])/x,x]

[Out]

(a + b*Log[3])*Log[x] - b*PolyLog[2, -1/3*(e*x)]

Rule 2438

Int[Log[(c_.)*((d_) + (e_.)*(x_)^(n_.))]/(x_), x_Symbol] :> Simp[-PolyLog[2, (-c)*e*x^n]/n, x] /; FreeQ[{c, d,
e, n}, x] && EqQ[c*d, 1]

Rule 2439

Int[((a_.) + Log[(c_.)*((d_) + (e_.)*(x_))]*(b_.))/(x_), x_Symbol] :> Simp[(a + b*Log[c*d])*Log[x], x] + Dist[
b, Int[Log[1 + e*(x/d)]/x, x], x] /; FreeQ[{a, b, c, d, e}, x] && GtQ[c*d, 0]

Rubi steps

\begin {align*} \int \frac {a+b \log (3+e x)}{x} \, dx &=(a+b \log (3)) \log (x)+b \int \frac {\log \left (1+\frac {e x}{3}\right )}{x} \, dx\\ &=(a+b \log (3)) \log (x)-b \text {Li}_2\left (-\frac {e x}{3}\right )\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.00, size = 22, normalized size = 1.05 \begin {gather*} a \log (x)+b \log (3) \log (x)-b \text {Li}_2\left (-\frac {e x}{3}\right ) \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[(a + b*Log[3 + e*x])/x,x]

[Out]

a*Log[x] + b*Log[3]*Log[x] - b*PolyLog[2, -1/3*(e*x)]

________________________________________________________________________________________

Maple [B] Leaf count of result is larger than twice the leaf count of optimal. \(45\) vs. \(2(19)=38\).
time = 0.18, size = 46, normalized size = 2.19

method	result	size
risch	\(\ln \left (x \right ) a -\ln \left (\frac {e x}{3}+1\right ) \ln \left (-\frac {e x}{3}\right ) b +\ln \left (e x +3\right ) \ln \left (-\frac {e x}{3}\right ) b -\dilog \left (\frac {e x}{3}+1\right ) b\)	\(44\)
derivativedivides	\(a \ln \left (e x \right )+\ln \left (e x +3\right ) \ln \left (-\frac {e x}{3}\right ) b -\ln \left (\frac {e x}{3}+1\right ) \ln \left (-\frac {e x}{3}\right ) b -\dilog \left (\frac {e x}{3}+1\right ) b\)	\(46\)
default	\(a \ln \left (e x \right )+\ln \left (e x +3\right ) \ln \left (-\frac {e x}{3}\right ) b -\ln \left (\frac {e x}{3}+1\right ) \ln \left (-\frac {e x}{3}\right ) b -\dilog \left (\frac {e x}{3}+1\right ) b\)	\(46\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a+b*ln(e*x+3))/x,x,method=_RETURNVERBOSE)

[Out]

a*ln(e*x)+ln(e*x+3)*ln(-1/3*e*x)*b-ln(1/3*e*x+1)*ln(-1/3*e*x)*b-dilog(1/3*e*x+1)*b

________________________________________________________________________________________

Maxima [A]
time = 0.32, size = 30, normalized size = 1.43 \begin {gather*} {\left (\log \left (x e + 3\right ) \log \left (-\frac {1}{3} \, x e\right ) + {\rm Li}_2\left (\frac {1}{3} \, x e + 1\right )\right )} b + a \log \left (x\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*log(e*x+3))/x,x, algorithm="maxima")

[Out]

(log(x*e + 3)*log(-1/3*x*e) + dilog(1/3*x*e + 1))*b + a*log(x)

________________________________________________________________________________________

Fricas [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*log(e*x+3))/x,x, algorithm="fricas")

[Out]

integral((b*log(x*e + 3) + a)/x, x)

________________________________________________________________________________________

Sympy [A]
time = 2.00, size = 94, normalized size = 4.48 \begin {gather*} a \log {\left (x \right )} + b \left (\begin {cases} - \operatorname {Li}_{2}\left (\frac {e x e^{i \pi }}{3}\right ) & \text {for}\: \frac {1}{\left |{x}\right |} < 1 \wedge \left |{x}\right | < 1 \\\log {\left (3 \right )} \log {\left (x \right )} - \operatorname {Li}_{2}\left (\frac {e x e^{i \pi }}{3}\right ) & \text {for}\: \left |{x}\right | < 1 \\- \log {\left (3 \right )} \log {\left (\frac {1}{x} \right )} - \operatorname {Li}_{2}\left (\frac {e x e^{i \pi }}{3}\right ) & \text {for}\: \frac {1}{\left |{x}\right |} < 1 \\- {G_{2, 2}^{2, 0}\left (\begin {matrix} & 1, 1 \\0, 0 & \end {matrix} \middle | {x} \right )} \log {\left (3 \right )} + {G_{2, 2}^{0, 2}\left (\begin {matrix} 1, 1 & \\ & 0, 0 \end {matrix} \middle | {x} \right )} \log {\left (3 \right )} - \operatorname {Li}_{2}\left (\frac {e x e^{i \pi }}{3}\right ) & \text {otherwise} \end {cases}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*ln(e*x+3))/x,x)

[Out]

a*log(x) + b*Piecewise((-polylog(2, e*x*exp_polar(I*pi)/3), (Abs(x) < 1) & (1/Abs(x) < 1)), (log(3)*log(x) - p
olylog(2, e*x*exp_polar(I*pi)/3), Abs(x) < 1), (-log(3)*log(1/x) - polylog(2, e*x*exp_polar(I*pi)/3), 1/Abs(x)
< 1), (-meijerg(((), (1, 1)), ((0, 0), ()), x)*log(3) + meijerg(((1, 1), ()), ((), (0, 0)), x)*log(3) - polyl
og(2, e*x*exp_polar(I*pi)/3), True))

________________________________________________________________________________________

Giac [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \text {could not integrate} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate((a+b*log(e*x+3))/x,x, algorithm="giac")

[Out]

integrate((b*log(x*e + 3) + a)/x, x)

________________________________________________________________________________________

Mupad [B]
time = 0.08, size = 25, normalized size = 1.19 \begin {gather*} b\,{\mathrm {Li}}_{\mathrm {2}}\left (-\frac {e\,x}{3}\right )+a\,\ln \left (x\right )+b\,\ln \left (e\,x+3\right )\,\ln \left (-\frac {e\,x}{3}\right ) \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int((a + b*log(e*x + 3))/x,x)

[Out]

b*dilog(-(e*x)/3) + a*log(x) + b*log(e*x + 3)*log(-(e*x)/3)

________________________________________________________________________________________